home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).adf / Redcode / Mice < prev    next >
Text File  |  1990-09-11  |  624b  |  15 lines
  1. ; Mice
  2. ; ----
  3.  
  4. ptr             DAT $0                  ;Zeiger auf zu kop. Programmzeile
  5. start           MOV #7, $ptr            ;Anzahl Programmzeilen
  6. loop            MOV @ptr, <5            ;betreffende Programmzeile kop.
  7.                 DJN $loop, $ptr         ;Wiederholen, bis alles kopiert
  8.                 SPL @3                  ;Neue Kopie des Programmes starten
  9.                 ADD #653, $2            ;Nächste Kopierposition vorbereiten
  10.                 JMP start               ;Knirps-Test bei hinterster Zeile
  11.                 DAT $833                ;Offset für Distanz zur Kopie
  12.  
  13. ; Chip Wendell, Rochester (NY)
  14.  
  15.